home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / docs / pascsrc / function.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  417 b   |  17 lines
  1.                                 (* Chapter 5 - Program 6 *)
  2. program Example_Function;
  3.  
  4. var Dogs,Cats,Feet : integer;
  5.  
  6. function Quad_Of_Sum(Number1,Number2 : integer) : integer;
  7. begin
  8.    Quad_Of_Sum := 4*(Number1 + Number2);
  9. end;
  10.  
  11. begin  (* main program *)
  12.    Dogs := 4;
  13.    Cats := 3;
  14.    Feet := Quad_Of_Sum(Dogs,Cats);
  15.    Writeln(' There are a total of',Feet:3,' paws.');
  16. end.  (* of main program *)
  17.